home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #2 / Floppy_Magazine_86-2_1986_Megasystems_Oy_fi.d64 / copy v3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  53 lines
  1. 0 poke53280,0:poke53281,0:print"[147][158]";:mp=-1
  2. 1 ifpeek(52680)<>165andpeek(53000)<>13andpeek(53120)<>133then50
  3. 2 print" [193][206][206][193] [205][213][201][211][212][201][208][193][201][203][203][193], [202][207][211][212][193] [203][213][214][193] [193][204][203][193][193]"
  4. 3 print" [197][211][201][205]. [198]ast [199]raphics  40960"
  5. 4 print"       [211]imons' [194]asic  57344 jne."
  6. 5 input" ";mp:ifmp>65535ormp<0then5
  7. 6 print" [200][193][204][213][193][212][203][207] [203][213][214][193][206] [203][193][193][206][212][197][201][211][197][206][193] (k/e)"
  8. 7 getr$:ifr$<>"k"andr$<>"e"then7
  9. 8 ifr$="k"thenprint" kaanteinen kuva":r=1
  10. 9 ifr$="e"thenprint" normaali kuva":r=0
  11. 10 print" [200][193][204][213][193][212][203][207] [208][210][201][206][212][193][212][193] [203][213][214][193][206] [203][207][203][207][206][193][193][206] (k/e)"
  12. 11 geta$:ifa$<>"k"anda$<>"e"then11
  13. 12 ifa$="e"then24
  14. 13 print" [205][201][206][203][193][160][203][207][203][207][201][211][197][206][193]"
  15. 14 print"  0=normaali kokoinen"
  16. 15 print"  1=keskikokoinen"
  17. 16 print"  2=paperin levyinen (480 pistetta)"
  18. 17 inputk%:ifk%<0ork%>2then17
  19. 18 :
  20. 19 :
  21. 20 sys52680,mp,k%,r
  22. 21 :
  23. 22 :
  24. 23 end
  25. 24 print" (piste (0,0) on nayton vasemmassa        ylanurkassa.)"
  26. 25 print" [193][206][206][193] [208][210][201][206][212][193][212][212][193][214][193][206] [193][204][213][197][197][206]"
  27. 26 print" [214][193][211][197][205][205][193][206] [217][204][193][206][213][210][203][193][206] [203][207][207][210][196][201][206][193][193][212][201][212]"
  28. 27 input" x,y";x1%,y1%:ifx1%<0ory1%<0thenprint" ei negatiivisia arvoja":goto26
  29. 28 ifx1%>319ory1%>199thenprint" suurimmat arvot ovat 319 ja 199.":goto26
  30. 29 print" [207][201][203][197][193][206] [193][204][193][206][213][210][203][193][206][160][203][207][207][210][196][201][206][193][193][212][201][212]"
  31. 30 input" x,y";x2%,y2%:ifx2%<x1%ory2%<y1%thenprint" anna suuremmat arvot":goto29
  32. 31 ifx2%>319ory2%>199thenprint" suurimmat arvot ovat 319 ja 199.":goto29
  33. 32 print" [193][206][206][193] [211][213][213][210][197][206][206][207][211][203][197][210][210][207][201][206] (1,2,3...)"
  34. 33 print" (varo, ettei kuvasta tule liian levea!)"
  35. 34 inputk%:ifk%<1then34
  36. 35 if k%*(x2%-x1%)<481 then 40
  37. 36 input " [211][193][193][203][207] [203][213][214][193][160][207][204][204][193][160][204][197][214][197][193][205][208][201][160][203][213][201][206][160]          480 [208][201][211][212][197][212][212][193] (k/e) ";a$
  38. 37 if a$<>"k" then32
  39. 38 :
  40. 39 :
  41. 40 sys52680,mp,-k%,r,x1%,y1%,x2%,y2%
  42. 41 :
  43. 42 :
  44. 43 end
  45. 44 :
  46. 45 :
  47. 46 :
  48. 47 :
  49. 48 :
  50. 49 :
  51. 50 load"copy v3 (52680)",8,1
  52. 65535 "
  53. [147]run
  54.           1986 [208]asi [212]apanainen
  55.